home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 122 / 122side4.d64 / b.gallery 1 (.txt) < prev    next >
Commodore BASIC  |  2022-08-29  |  5KB  |  193 lines
  1. 100 poke53280,0:poke53281,0:print"[147]"
  2. 130 :
  3. 140 poke55,0:poke56,64:clr:a$=""
  4. 142 dv=peek(186):ifdv<8thendv=8
  5. 144 dim an$(12,13)
  6. 145 gosub60000
  7. 155 def fnd(i)=20-(len(an$(x,i))/2)
  8. 160 sys57812"unpacker.89",dv,0:poke780,0:poke781,0:poke782,201:sys65493
  9. 170 sys57812"package.o",dv,0:poke780,0:poke781,80:poke782,195:sys65493
  10. 180 sys57812"gallery 1.shp",dv,0:poke780,0:poke781,0:poke782,64:sys65493
  11. 190 poke251,64:poke252,224:poke253,204:sys51456
  12. 195 poke252,224:poke253,204:sys51459
  13. 200 ip=50000:unpack=51456:hgr=51459
  14. 210 ps=50006:ba=50009
  15. 220 open2,dv,2,"gallery 1 text,p,r"
  16. 222 j=1:k=0:fori=0to1:sysip,2,40:i=st
  17. 224 ifa$="*"thenj=j+1:k=0:goto228
  18. 226 k=k+1:an$(j,k)=a$
  19. 228 next:close2
  20. 230 readnp:dim r$(11),c(11)
  21. 240 forx=1tonp:readr$(x),c(x)
  22. 250 next
  23. 260 syshgr
  24. 270 forx=1tonp
  25. 280 gosub1810
  26. 285 fh=0:ifleft$(r$(x),2)="u."thenfh=1
  27. 290 sys57812r$(x),dv,0:poke780,0:poke781,0:poke782,64:sys65493
  28. 310 gosub1910:ifa$="q"ora$="[209]"thengosub1250
  29. 312 gosub2000
  30. 320 e(x)=peek(53281)
  31. 340 kk=0:poke198,0
  32. 355 ifz3=0then360
  33. 357 z4=z4+1:z4=z4and15
  34. 358 poke53281,z4
  35. 360 kk=kk+1:geta$:ifa$=""andkk<800then355
  36. 370 ifa$="q"ora$="[209]"thengosub1250
  37. 380 ifa$="s"ora$="[211]"then 470
  38. 390 ifa$<>chr$(133)then410
  39. 400 z1=z1+1:z1=z1and15
  40. 405 poke53280,z1:goto340
  41. 410 ifa$<>chr$(134)then416
  42. 412 z2=z2+1:z2=z2and15
  43. 415 poke53281,z2:goto340
  44. 416 ifa$<>chr$(135)then420
  45. 417 z3=1-z3:ifz3=0thenpoke53281,e(x)
  46. 419 goto340
  47. 420 syshgr:print"[147]":poke198,0:next x
  48. 430 goto270
  49. 440 :
  50. 450 rem save koala pic
  51. 460 :
  52. 470 sys hgr
  53. 480 poke53280,0:poke53281,0
  54. 490 print"[147][154]":poke214,11:print
  55. 500 print"   [211]ave this unpacked picture? (y[154]/n[154])":poke198,0
  56. 510 geta$:ifa$<>"y"anda$<>"n"then510
  57. 520 ifa$="y"then560
  58. 530 goto1110
  59. 550 :
  60. 560 print"[147][154]":poke214,9:print
  61. 570 print" [201]nsert save disk and enter a filename."
  62. 580 :
  63. 590 print"       [206]ame : ---------------[145][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][193][146]pic ";
  64. 600 ln%=10:sp$="                "
  65. 610 gosub690:ifnm$=""then1110
  66. 612 print"[154] save drive #: (8/9/0/1/2/3/4/5/6/7)
  67. 614 [161]a$:[139]a$[178]""[167]614
  68. 616 [139]a$[179]"0"[176]a$[177]"9"[167]614
  69. 618 [151]50178,[197](a$)[171]10[172]([197](a$)[179]8)
  70. 620 nm$[178][200]([199](129)[170]"pic "[170]nm$[170]sp$,15)
  71. 650 [137]820
  72. 680 [143] --- input routine ---
  73. 690 nm$[178]"":x%[178]0:c%[178][194](646)
  74. 700 [153]"print#tocmd";:[151]646,c%
  75. 710 [161]a$:[139]a$[178]""[167]710
  76. 720 a%[178][198](a$)
  77. 730 [139]a%[178]20[175]x%[167]x%[178]x%[171]1:nm$[178][200](nm$,[195](nm$)[171]1):[153]" cmdcmd";:[137]700
  78. 740 [139]a%[178]20[167]710
  79. 750 [139]a%[178]13[167][153]" ":[142]
  80. 760 [139]x%[178]ln%[167]710
  81. 770 [139]a$[179]" "[176]a$[177]"z"[175]a$[179]"atn"[176]a$[177]"(NULL)"[176]a%[178]34[167]710
  82. 780 nm$[178]nm$[170]a$:[153]""a$;:x%[178]x%[170]1:[137]700
  83. 790 :
  84. 800 [143] -- check for 'file exists' --
  85. 810 :
  86. 820 [159]15,dv,15,"r0:"[170]nm$[170]"="[170]nm$:[132]15,er,er$:[160]15
  87. 830 [139]er[179][177]62[167][141]1160:[137]1110
  88. 840 :
  89. 850 [143] ---      save pic       ---
  90. 860 :
  91. 920 [141]2000:nm$[178]nm$[170]",p,w"
  92. 930 [158]ps,nm$:[158]hgr
  93. 950 :
  94. 960 [143] --- check for errors ---
  95. 970 :
  96. 980 [159]15,dv,15:[132]15,er,er$,y$,z$:[160]15
  97. 990 [139]er[167][141]1160:[137]490
  98. 1000 :
  99. 1010 [143] --    everything ok    ---
  100. 1020 :
  101. 1030 [151]53280,0:[151]53281,0
  102. 1040 [153]"loadcont":[151]214,7:[153]
  103. 1050 [153]"             (NULL)aving complete."
  104. 1060 [153]"   right$f necessary, put the disk in"
  105. 1070 [153]"     the drive and press (NULL)(NULL)atnlenvalcont."
  106. 1080 [161]a$:[139]a$[179][177]" "[167]1080
  107. 1090 [159]15,dv,15,"r0:package.o=package.o":[132]15,er:[160]15
  108. 1100 [139]er[179][177]63 [167] 1040
  109. 1110 [158]hgr:[137]420
  110. 1120 :
  111. 1130 :
  112. 1140 :
  113. 1150 [143] ---   print dos error msg ---
  114. 1160 :
  115. 1170 [151]53280,.:[151]53281,.:[153]"load        for str$ right$ (NULL) (NULL)   val (NULL) (NULL) (NULL) (NULL) !
  116. 1180 poke214,10:print
  117. 1190 a$="[152][197]rror #"+str$(er)+"[152],"+er$
  118. 1200 x%=22-len(a$)/2:printtab(x%);a$
  119. 1210 poke214,21:print
  120. 1220 print"[152]        [208]ress [211][208][193][195][197][152] to continue."
  121. 1230 geta$:ifa$<>" "then1230
  122. 1240 return
  123. 1250 o=peek(53270)and16
  124. 1255 ifothensys51459
  125. 1260 poke53281,0:poke53280,0
  126. 1270 print"[147][154]  [193]re you sure you want to quit? (y[154]/n[154])"
  127. 1280 poke198,0:wait198,1:getag$
  128. 1290 ifag$="y"orag$="[217]"then1330
  129. 1295 ifothensys51459
  130. 1300 return
  131. 1320 rem quit
  132. 1330 goto40000
  133. 1380 rem data <title>,<border color>
  134. 1390 data 9
  135. 1400 data norbert.shp,0
  136. 1402 data aspen.shp,0
  137. 1410 data vera.shp,0
  138. 1420 data alps.shp,0
  139. 1430 data the taeping.shp,14
  140. 1440 data baby.shp,1
  141. 1450 data rag doll.shp,0
  142. 1460 data seascape.shp,14
  143. 1470 data house.shp,0
  144. 1500 :
  145. 1770 print"";
  146. 1800 :
  147. 1810 poke53281,0:poke53280,0
  148. 1820 print"[147][154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  149. 1830 forqx=1to13
  150. 1840 print"[221]"tab(38)"[221]":next
  151. 1850 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  152. 1860 forlx=217to217+26:pokelx,(peek(lx)or128):next
  153. 1870 print"[159]"
  154. 1872 printtab(fnd(1))an$(x,1)
  155. 1880 fori=2to12
  156. 1882 print"[155]"tab(fnd(i))an$(x,i)
  157. 1886 next
  158. 1900 return
  159. 1910 kk=0
  160. 1915 poke214,15:print:print"[154]     [215]hile the slide is showing..."
  161. 1916 print"      [198]1 [158]- changes border color"
  162. 1917 print"      [198]3 [158]- changes background color"
  163. 1918 print"      [198]5 [158]- toggles light show"
  164. 1919 print"       [211] [158]- takes you to [211][193][214][197] routine"
  165. 1920 print"       [209] [158]- quits"
  166. 1925 poke214,23:print
  167. 1930 print"[154][208]ress [209] to quit - [193]ny other to continue[145]"
  168. 1940 kk=kk+1:geta$:ifa$<>""orkk>1000thenreturn
  169. 1950 goto1940
  170. 1980 :
  171. 1990 :
  172. 2000 print"[147]";:iffhthenpoke254,0:sysba:goto2040
  173. 2020 poke251,64:poke252,224:poke253,204
  174. 2030 sysun
  175. 2040 poke53280,c(x):poke252,224:poke253,204:syshgr:return
  176. 2050 return
  177. 10000 open15,8,15,"s0:b.gallery 1":close15:save"b.gallery 1",8:end
  178. 40000 a$="hello connect":fori=8to9:close2:open2,i,2:close2:ifstthen40020
  179. 40010 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40030
  180. 40020 next:print"[147]":poke2048,0:poke44,8:poke53272,23:poke186,8:end
  181. 40030 poke646,peek(53281):print"[147]load"chr$(34)a$chr$(34)","i
  182. 40040 print"run":poke44,8:poke2048,0:poke631,13:poke632,13:poke198,2:end
  183. 60000 print"[147]":z$=" [152]                                      ":poke214,10:print
  184. 60010 print" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":fori=0to8:printz$:next
  185. 60020 print" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
  186. 60030 z$(0)="[212][200][197] [204][207][193][196][211][212][193][210] [199][193][204][204][197][210][217] #1":z$(1)="by [215]alt [200]arned"
  187. 60040 z$(3)="([195]) 1994 by [211]oftdisk [208]ublishing"+chr$(13)
  188. 60050 z$(3)="[212]his program is the copyrighted work
  189. 60060 z$(4)[178]"of (NULL)oftdisk (NULL)ublishing.  right$t is not"
  190. 60070 z$(5)[178]"shareware or in the public domain."
  191. 60090 [151]214,12:[153]
  192. 60100 [129]i[178]0[164]5:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]:[142]
  193.